| 1 | SDNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:51:49
|
|---|
| 2 | ;;5.3;Scheduling;;Aug 13, 1993
|
|---|
| 3 | ;;7.0;AUG 13, 1993@12:51:49
|
|---|
| 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 | SDMULT ;;7484316
|
|---|
| 13 | SDMULT0 ;;15841854
|
|---|
| 14 | SDMULT1 ;;9609770
|
|---|
| 15 | SDN ;;13190633
|
|---|
| 16 | SDN0 ;;10745291
|
|---|
| 17 | SDN1 ;;15925636
|
|---|
| 18 | SDN2 ;;2148726
|
|---|
| 19 | SDNACT ;;13249640
|
|---|
| 20 | SDNACT1 ;;5666984
|
|---|
| 21 | SDNDIS ;;8278294
|
|---|
| 22 | SDNEXT ;;3901484
|
|---|
| 23 | SDNOS ;;16972788
|
|---|
| 24 | SDNOS0 ;;16880853
|
|---|
| 25 | SDNOS1 ;;12327597
|
|---|
| 26 | SDNOS1A ;;2101232
|
|---|
| 27 | SDNOS2 ;;5107044
|
|---|
| 28 | SDNP ;;3355964
|
|---|
| 29 | SDONI001 ;;6235821
|
|---|
| 30 | SDONI002 ;;5848496
|
|---|
| 31 | SDONI003 ;;5872589
|
|---|
| 32 | SDONI004 ;;6366190
|
|---|
| 33 | SDONI005 ;;7545844
|
|---|
| 34 | SDONI006 ;;8448875
|
|---|
| 35 | SDONI007 ;;5917220
|
|---|
| 36 | SDONI008 ;;7027147
|
|---|
| 37 | SDONI009 ;;7223308
|
|---|
| 38 | SDONI010 ;;7596385
|
|---|
| 39 | SDONI011 ;;1869958
|
|---|
| 40 | SDONIT ;;975625
|
|---|
| 41 | SDONIT1 ;;1683550
|
|---|
| 42 | SDONIT2 ;;82270
|
|---|
| 43 | SDONIT3 ;;10576031
|
|---|
| 44 | SDOPC ;;13893366
|
|---|
| 45 | SDOPC0 ;;8303286
|
|---|
| 46 | SDOPC1 ;;19561908
|
|---|
| 47 | SDOPC2 ;;8401400
|
|---|
| 48 | SDOPC3 ;;15775861
|
|---|
| 49 | SDOPC4 ;;5237052
|
|---|
| 50 | SDOPC5 ;;5436070
|
|---|
| 51 | SDOPCDEL ;;7891083
|
|---|
| 52 | SDOUTPUT ;;2244356
|
|---|
| 53 | SDPARM ;;5249701
|
|---|
| 54 | SDPARM1 ;;1553513
|
|---|
| 55 | SDPARM2 ;;671202
|
|---|
| 56 | SDPP ;;3034351
|
|---|
| 57 | SDPPADD1 ;;4364131
|
|---|
| 58 | SDPPALL ;;5112745
|
|---|
| 59 | SDPPAPP1 ;;5177737
|
|---|
| 60 | SDPPAPP2 ;;2219211
|
|---|
| 61 | SDPPAT1 ;;7771900
|
|---|
| 62 | SDPPAT2 ;;5274978
|
|---|
| 63 | SDPPDIS1 ;;6965566
|
|---|
| 64 | SDPPDIS2 ;;4256184
|
|---|
| 65 | SDPPENR1 ;;3517678
|
|---|
| 66 | SDPPHLP ;;5694325
|
|---|
| 67 | SDPPMT1 ;;3905693
|
|---|
| 68 | SDPPMT2 ;;4801073
|
|---|
| 69 | SDPPSEL ;;3358971
|
|---|
| 70 | SDPSDR ;;14768443
|
|---|
| 71 | SDPSDR1 ;;15374612
|
|---|
| 72 | SDPURG ;;11231352
|
|---|
| 73 | SDPURG1 ;;11787942
|
|---|
| 74 | SDPURG2 ;;5183530
|
|---|
| 75 | SDREACT ;;13194688
|
|---|
| 76 | SDREV ;;5852789
|
|---|
| 77 | SDRFC ;;7940120
|
|---|
| 78 | SDROUT ;;9180900
|
|---|
| 79 | SDROUT0 ;;13234586
|
|---|
| 80 | SDROUT1 ;;12264522
|
|---|
| 81 | SDROUT2 ;;8476364
|
|---|
| 82 | SDSCE ;;6418042
|
|---|
| 83 | SDSCP ;;20087063
|
|---|
| 84 | SDSCP1 ;;15494739
|
|---|
| 85 | SDST ;;10694638
|
|---|
| 86 | SDSTAT ;;6678622
|
|---|
| 87 | SDSTP ;;7342317
|
|---|
| 88 | SDSTP1 ;;5317060
|
|---|
| 89 | SDSTP2 ;;6761871
|
|---|
| 90 | SDSTP3 ;;4306362
|
|---|
| 91 | SDSURMEN ;;1001315
|
|---|
| 92 | SDTRAN ;;9494629
|
|---|
| 93 | SDTRAN1 ;;8582962
|
|---|
| 94 | SDTRAN3 ;;4915408
|
|---|
| 95 | SDTRAN4 ;;6282195
|
|---|
| 96 | SDTRAND1 ;;9304255
|
|---|
| 97 | SDTRAND2 ;;11346585
|
|---|
| 98 | SDTRANDV ;;3512495
|
|---|
| 99 | SDUL ;;3945856
|
|---|
| 100 | SDUL0 ;;6331480
|
|---|
| 101 | SDUL1 ;;6667122
|
|---|
| 102 | SDUL2 ;;3405578
|
|---|
| 103 | SDUL4 ;;3922391
|
|---|
| 104 | SDUL40 ;;3773937
|
|---|
| 105 | SDUNC ;;14954499
|
|---|
| 106 | SDUNC1 ;;3608531
|
|---|
| 107 | SDUTL ;;5100474
|
|---|
| 108 | SDUTL1 ;;4495031
|
|---|
| 109 | SDUTL2 ;;1377730
|
|---|
| 110 | SDV53PP ;;878308
|
|---|
| 111 | SDV53PR ;;532938
|
|---|
| 112 | SDV53PT ;;540485
|
|---|
| 113 | SDVADAT ;;9027439
|
|---|
| 114 | SDVADS ;;2822966
|
|---|
| 115 | SDVER ;;306362
|
|---|
| 116 | SDVLT ;;8167296
|
|---|
| 117 | SDVPP ;;5092613
|
|---|
| 118 | SDVPR ;;418341
|
|---|
| 119 | SDVPT ;;10774005
|
|---|
| 120 | SDVSIT ;;4191071
|
|---|
| 121 | SDVSIT0 ;;2375396
|
|---|
| 122 | SDVSIT2 ;;2433623
|
|---|
| 123 | SDWARD ;;5293772
|
|---|
