- SRNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 24, 1993@10:46:22
- ;;3.0; Surgery ;;24 Jun 93
- ;;7.0;JUN 24, 1993@10:46:22
- 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^SRNTEG0
- 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 ;;
- SRCUSS ;;13128616
- SRCUSS0 ;;11932742
- SRCUSS1 ;;14024981
- SRCUSS2 ;;9008801
- SRCUSS3 ;;8147839
- SRCUSS4 ;;8817864
- SRCUSS5 ;;1705099
- SROA30 ;;13123589
- SROABCH ;;6036002
- SROAC ;;8074997
- SROAC1 ;;811669
- SROAC2 ;;7839725
- SROACAR ;;8480830
- SROACAT ;;7090373
- SROACC ;;17863169
- SROACC0 ;;13064481
- SROACC1 ;;11929528
- SROACC2 ;;10979053
- SROACC3 ;;11318821
- SROACC4 ;;10650931
- SROACC5 ;;11342334
- SROACC6 ;;9694366
- SROACCM ;;5442845
- SROACCR ;;10280990
- SROACCT ;;6477022
- SROACL1 ;;11536133
- SROACLN ;;6690925
- SROACOM ;;5271992
- SROACOP ;;10401802
- SROACR1 ;;10974698
- SROACRC ;;8615250
- SROACS ;;17495772
- SROACTH ;;4583908
- SROADEL ;;7357586
- SROADOC ;;9175831
- SROADOC1 ;;17090569
- SROAERR ;;5502190
- SROAEX ;;14370150
- SROAL1 ;;10740868
- SROAL11 ;;9261896
- SROAL2 ;;9570235
- SROAL21 ;;5999753
- SROALAB ;;5683374
- SROALC ;;9188663
- SROALCP ;;8851245
- SROALCS ;;10545065
- SROALCSP ;;9911958
- SROALDP ;;5758536
- SROALEN ;;7542354
- SROALET ;;11955292
- SROALL ;;11950510
- SROALLP ;;10358750
- SROALLS ;;12609154
- SROALLSP ;;12599574
- SROALN1 ;;12516462
- SROALN2 ;;7427970
- SROALN3 ;;13840617
- SROALNO ;;10739667
- SROALOG ;;12771858
- SROALSS ;;12611289
- SROALSSP ;;12640766
- SROALST ;;11222652
- SROALSTP ;;10401017
- SROALT ;;9077666
- SROALTP ;;8814293
- SROALTS ;;10204410
- SROALTSP ;;9824963
- SROAMEAS ;;71772
- SROAMIS ;;11919401
- SROAMIS1 ;;11009877
- SROANEW ;;11162809
- SROANIN ;;3341842
- SROANP ;;10889746
- SROANP1 ;;11114124
- SROANT ;;9203425
- SROANTP ;;8862033
- SROANTS ;;9560904
- SROANTSP ;;9451309
- SROAO ;;7410117
- SROAOP ;;11418072
- SROAOP1 ;;12217328
- SROAOPS ;;8050404
- SROAOSET ;;3431177
- SROAOTH ;;3393938
- SROAPAS ;;6024518
- SROAPC ;;1047865
- SROAPCA ;;13042967
- SROAPCA0 ;;553613
- SROAPCA1 ;;8911710
- SROAPCA2 ;;9377265
- SROAPCA3 ;;7422507
- SROAPR1A ;;3752585
- SROAPR2 ;;6197830
- SROAPRE ;;8740356
- SROAPRE1 ;;4090377
- SROAPRE2 ;;3501275
- SROAPRT1 ;;15523830
- SROAPRT2 ;;10007362
- SROAPRT3 ;;10638329
- SROAPRT4 ;;8634120
- SROAPRT5 ;;6747189
- SROAPRT6 ;;4391520
- SROAPRT7 ;;16872471
- SROAPS1 ;;16535485
- SROAPS2 ;;10890544
- SROAR ;;8206451
- SROAR1 ;;12304213
- SROAR2 ;;11247893
- SROARET ;;13046895
- SROARPT ;;4779374
- SROARPT0 ;;16972368
- SROARPT1 ;;15190572
- SROARPT2 ;;3764497
- SROASS ;;11306593
- SROASS1 ;;7807496
- SROASSE ;;10185778
- SROASSP ;;4152937
- SROASWAP ;;8677386
- SROASWP ;;18452779
- SROASWP0 ;;7552610
- SROASWP1 ;;5461676
- SROASWP2 ;;11754339
- SROASWP3 ;;17786597
- SROASWPD ;;2734567
- SROAT0P ;;11334796
- SROAT0T ;;4303410
- SROAT1P ;;12727482
- SROAT1T ;;3406860
- SROAT2P ;;12597003
- SROAT2T ;;5717811
- SROATCM ;;1118815
- SROATCM1 ;;11449351
- SROATCM2 ;;6369827
- SROATM1 ;;16600818
- SROATM2 ;;18977949
- SROATM3 ;;9985638
- SROATM4 ;;6407807
- SROATMIT ;;4502627
- SROATMNO ;;2187622
- SROATT ;;13398424
- SROATT0 ;;7944441
- SROATT1 ;;2912932
- SROATT2 ;;4045394
- SROBLOD ;;5570434
- SROBTCH ;;1744175
- SROCAN ;;7968055
- SROCAN0 ;;9498623
- SROCANUP ;;5599175
- SROCASE ;;2252
- SROCCAT ;;9818522
- SROCHDD ;;2209304
- SROCMP ;;9802456
- SROCMP1 ;;5787553
- SROCMP2 ;;3425866
- SROCMPD ;;2578858
- SROCMPED ;;15288632
- SROCMPL ;;12462861
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRNTEG 3792 printed Feb 19, 2025@00:06:15 Page 2
- SRNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 24, 1993@10:46:22
- +1 ;;3.0; Surgery ;;24 Jun 93
- +2 ;;7.0;JUN 24, 1993@10:46:22
- +3 SET XT4="I 1"
- SET X=$TEXT(+3)
- WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
- CONT FOR XT1=1:1
- SET XT2=$TEXT(ROU+XT1)
- if XT2=""
- QUIT
- SET X=$PIECE(XT2," ",1)
- SET XT3=$PIECE(XT2,";",3)
- XECUTE XT4
- IF $TEST
- WRITE !,X
- XECUTE ^%ZOSF("TEST")
- if '$TEST
- SET XT3=0
- if XT3
- XECUTE ^%ZOSF("RSUM")
- WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$CHAR(7)_Y_", off by "_(Y-XT3),1:"ok")
- +1 GOTO CONT^SRNTEG0
- +2 KILL %1,%2,%3,X,Y,XT1,XT2,XT3,XT4
- QUIT
- ONE SET XT4="I $D(^UTILITY($J,X))"
- SET X=$TEXT(+3)
- WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
- +1 WRITE !,"Check a subset of routines:"
- KILL ^UTILITY($JOB)
- XECUTE ^%ZOSF("RSEL")
- +2 WRITE !
- GOTO CONT
- ROU ;;
- SRCUSS ;;13128616
- SRCUSS0 ;;11932742
- SRCUSS1 ;;14024981
- SRCUSS2 ;;9008801
- SRCUSS3 ;;8147839
- SRCUSS4 ;;8817864
- SRCUSS5 ;;1705099
- SROA30 ;;13123589
- SROABCH ;;6036002
- SROAC ;;8074997
- SROAC1 ;;811669
- SROAC2 ;;7839725
- SROACAR ;;8480830
- SROACAT ;;7090373
- SROACC ;;17863169
- SROACC0 ;;13064481
- SROACC1 ;;11929528
- SROACC2 ;;10979053
- SROACC3 ;;11318821
- SROACC4 ;;10650931
- SROACC5 ;;11342334
- SROACC6 ;;9694366
- SROACCM ;;5442845
- SROACCR ;;10280990
- SROACCT ;;6477022
- SROACL1 ;;11536133
- SROACLN ;;6690925
- SROACOM ;;5271992
- SROACOP ;;10401802
- SROACR1 ;;10974698
- SROACRC ;;8615250
- SROACS ;;17495772
- SROACTH ;;4583908
- SROADEL ;;7357586
- SROADOC ;;9175831
- SROADOC1 ;;17090569
- SROAERR ;;5502190
- SROAEX ;;14370150
- SROAL1 ;;10740868
- SROAL11 ;;9261896
- SROAL2 ;;9570235
- SROAL21 ;;5999753
- SROALAB ;;5683374
- SROALC ;;9188663
- SROALCP ;;8851245
- SROALCS ;;10545065
- SROALCSP ;;9911958
- SROALDP ;;5758536
- SROALEN ;;7542354
- SROALET ;;11955292
- SROALL ;;11950510
- SROALLP ;;10358750
- SROALLS ;;12609154
- SROALLSP ;;12599574
- SROALN1 ;;12516462
- SROALN2 ;;7427970
- SROALN3 ;;13840617
- SROALNO ;;10739667
- SROALOG ;;12771858
- SROALSS ;;12611289
- SROALSSP ;;12640766
- SROALST ;;11222652
- SROALSTP ;;10401017
- SROALT ;;9077666
- SROALTP ;;8814293
- SROALTS ;;10204410
- SROALTSP ;;9824963
- SROAMEAS ;;71772
- SROAMIS ;;11919401
- SROAMIS1 ;;11009877
- SROANEW ;;11162809
- SROANIN ;;3341842
- SROANP ;;10889746
- SROANP1 ;;11114124
- SROANT ;;9203425
- SROANTP ;;8862033
- SROANTS ;;9560904
- SROANTSP ;;9451309
- SROAO ;;7410117
- SROAOP ;;11418072
- SROAOP1 ;;12217328
- SROAOPS ;;8050404
- SROAOSET ;;3431177
- SROAOTH ;;3393938
- SROAPAS ;;6024518
- SROAPC ;;1047865
- SROAPCA ;;13042967
- SROAPCA0 ;;553613
- SROAPCA1 ;;8911710
- SROAPCA2 ;;9377265
- SROAPCA3 ;;7422507
- SROAPR1A ;;3752585
- SROAPR2 ;;6197830
- SROAPRE ;;8740356
- SROAPRE1 ;;4090377
- SROAPRE2 ;;3501275
- SROAPRT1 ;;15523830
- SROAPRT2 ;;10007362
- SROAPRT3 ;;10638329
- SROAPRT4 ;;8634120
- SROAPRT5 ;;6747189
- SROAPRT6 ;;4391520
- SROAPRT7 ;;16872471
- SROAPS1 ;;16535485
- SROAPS2 ;;10890544
- SROAR ;;8206451
- SROAR1 ;;12304213
- SROAR2 ;;11247893
- SROARET ;;13046895
- SROARPT ;;4779374
- SROARPT0 ;;16972368
- SROARPT1 ;;15190572
- SROARPT2 ;;3764497
- SROASS ;;11306593
- SROASS1 ;;7807496
- SROASSE ;;10185778
- SROASSP ;;4152937
- SROASWAP ;;8677386
- SROASWP ;;18452779
- SROASWP0 ;;7552610
- SROASWP1 ;;5461676
- SROASWP2 ;;11754339
- SROASWP3 ;;17786597
- SROASWPD ;;2734567
- SROAT0P ;;11334796
- SROAT0T ;;4303410
- SROAT1P ;;12727482
- SROAT1T ;;3406860
- SROAT2P ;;12597003
- SROAT2T ;;5717811
- SROATCM ;;1118815
- SROATCM1 ;;11449351
- SROATCM2 ;;6369827
- SROATM1 ;;16600818
- SROATM2 ;;18977949
- SROATM3 ;;9985638
- SROATM4 ;;6407807
- SROATMIT ;;4502627
- SROATMNO ;;2187622
- SROATT ;;13398424
- SROATT0 ;;7944441
- SROATT1 ;;2912932
- SROATT2 ;;4045394
- SROBLOD ;;5570434
- SROBTCH ;;1744175
- SROCAN ;;7968055
- SROCAN0 ;;9498623
- SROCANUP ;;5599175
- SROCASE ;;2252
- SROCCAT ;;9818522
- SROCHDD ;;2209304
- SROCMP ;;9802456
- SROCMP1 ;;5787553
- SROCMP2 ;;3425866
- SROCMPD ;;2578858
- SROCMPED ;;15288632
- SROCMPL ;;12462861