- DVBANTE0 ;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^DVBANTE1
- 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 ;;
- DVBAPSYN ;;2378133
- DVBAPW1 ;;8347851
- DVBAPW2 ;;15046563
- DVBAPWKS ;;2574436
- DVBARAD1 ;;9779353
- DVBARADM ;;13766190
- DVBAREG1 ;;5604558
- DVBAREG2 ;;6796936
- DVBAREG3 ;;496700
- DVBAREN1 ;;5110486
- DVBAREQ1 ;;6046247
- DVBAREQ3 ;;11591429
- DVBAREQS ;;4101625
- DVBARL21 ;;9497644
- DVBARPUR ;;2109695
- DVBARQP ;;7408065
- DVBASCRP ;;10618584
- DVBASITE ;;432310
- DVBASPD2 ;;12609416
- DVBASPDC ;;1855839
- DVBASTAT ;;1731141
- DVBAUTIL ;;17077948
- DVBAUTL1 ;;671413
- DVBAUTL2 ;;11376979
- DVBAUTL3 ;;5126380
- DVBAUTL4 ;;1068079
- DVBAUTL5 ;;2400662
- DVBAUTL6 ;;1039958
- DVBAUTL7 ;;4947961
- DVBAUTL8 ;;2009228
- DVBAUTLH ;;1322144
- DVBAVDPT ;;6199074
- DVBCAACK ;;10697058
- DVBCADCK ;;16662513
- DVBCADE1 ;;12482920
- DVBCADE2 ;;12838391
- DVBCADEX ;;5964579
- DVBCADR ;;5562753
- DVBCAMC1 ;;16773745
- DVBCAMCK ;;24825901
- DVBCAMI1 ;;5901817
- DVBCAMI2 ;;12729591
- DVBCAMI3 ;;3088709
- DVBCAMIS ;;5835381
- DVBCAMR1 ;;2817493
- DVBCAMR2 ;;11670627
- DVBCAMRO ;;5648976
- DVBCAOC1 ;;15597069
- DVBCAOCK ;;16213615
- DVBCARC1 ;;11119260
- DVBCARC2 ;;3468613
- DVBCARCK ;;5894420
- DVBCATC1 ;;10433901
- DVBCATCK ;;3242113
- DVBCBNCK ;;9472567
- DVBCBRCK ;;9688091
- DVBCBUL1 ;;6490294
- DVBCBULL ;;11261928
- DVBCCECK ;;5348778
- DVBCCHKR ;;11985936
- DVBCCNC1 ;;10329224
- DVBCCNCL ;;14608393
- DVBCCNNS ;;6465570
- DVBCCRCK ;;10796464
- DVBCCUCK ;;9102724
- DVBCCYCK ;;8998698
- DVBCDACK ;;10981371
- DVBCDBCK ;;11708644
- DVBCDECK ;;5200660
- DVBCDHCK ;;9236029
- DVBCDICK ;;9010550
- DVBCDMCK ;;10183017
- DVBCDNCK ;;7857444
- DVBCEDCK ;;12782887
- DVBCEDIT ;;13356686
- DVBCEEXM ;;6444590
- DVBCENCK ;;11064281
- DVBCENQ ;;3137584
- DVBCENQ1 ;;17735634
- DVBCENQ2 ;;5360800
- DVBCESCK ;;8586267
- DVBCEXML ;;5745207
- DVBCFEE ;;4823842
- DVBCFSCK ;;8400570
- DVBCFTCK ;;11486991
- DVBCGECK ;;5329066
- DVBCGMC1 ;;11580608
- DVBCGMCK ;;19361685
- DVBCGNCK ;;16937132
- DVBCGOCK ;;14320767
- DVBCGSCK ;;5315275
- DVBCHACK ;;10806048
- DVBCHDCK ;;8836870
- DVBCHECK ;;5877095
- DVBCHLCK ;;15488784
- DVBCHLOR ;;984544
- DVBCHLQ ;;6640186
- DVBCHLR ;;11476557
- DVBCHLUT ;;3110204
- DVBCHMC1 ;;2272934
- DVBCHMCK ;;9509200
- DVBCHNCK ;;13792552
- DVBCHPCK ;;11448190
- DVBCHS0 ;;1790541
- DVBCHS1 ;;1496798
- DVBCHS2 ;;2433797
- DVBCHTCK ;;8302169
- DVBCHYCK ;;7996254
- DVBCIRP1 ;;11482024
- DVBCIRPT ;;4499283
- DVBCIUT1 ;;2146997
- DVBCIUTL ;;5639159
- DVBCJNCK ;;15001703
- DVBCLABR ;;4708883
- DVBCLKT2 ;;7808623
- DVBCLKTL ;;6998431
- DVBCLMHD ;;57210
- DVBCLMU2 ;;314744
- DVBCLMU5 ;;1478779
- DVBCLOG ;;11143383
- DVBCLOG2 ;;2684669
- DVBCLOGE ;;10765565
- DVBCLTR ;;2127008
- DVBCLTR2 ;;3092277
- DVBCLURN ;;1306910
- DVBCMDCK ;;9944806
- DVBCMECK ;;5385050
- DVBCMKL2 ;;9133939
- DVBCMKLK ;;6462243
- DVBCMLCK ;;9262268
- DVBCMMCK ;;10979579
- DVBCMNCK ;;14329368
- DVBCMOCK ;;5723689
- DVBCMSCK ;;10520804
- DVBCMTCK ;;9589187
- DVBCNHCK ;;8951617
- DVBCNICK ;;8854235
- DVBCNKCK ;;10172030
- DVBCNLCK ;;12481864
- DVBCNNCK ;;5288860
- DVBCNPCK ;;9891090
- DVBCNSCK ;;9764945
- DVBCNTCK ;;10392687
- DVBCNTSC ;;9266168
- DVBCNUCK ;;5317272
- DVBCOECK ;;5356538
- DVBCPATA ;;5360197
- DVBCPDCK ;;12898016
- DVBCPECK ;;5210166
- DVBCPG1 ;;511338
- DVBCPG2 ;;814756
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBANTE0 3787 printed Apr 23, 2025@17:55:49 Page 2
- DVBANTE0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 10, 1995@13:51:40
- +1 ;;2.7;AMIE;;Apr 10, 1995
- +2 ;;7.2;APR 10, 1995@13:51:40
- +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^DVBANTE1
- +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 ;;
- DVBAPSYN ;;2378133
- DVBAPW1 ;;8347851
- DVBAPW2 ;;15046563
- DVBAPWKS ;;2574436
- DVBARAD1 ;;9779353
- DVBARADM ;;13766190
- DVBAREG1 ;;5604558
- DVBAREG2 ;;6796936
- DVBAREG3 ;;496700
- DVBAREN1 ;;5110486
- DVBAREQ1 ;;6046247
- DVBAREQ3 ;;11591429
- DVBAREQS ;;4101625
- DVBARL21 ;;9497644
- DVBARPUR ;;2109695
- DVBARQP ;;7408065
- DVBASCRP ;;10618584
- DVBASITE ;;432310
- DVBASPD2 ;;12609416
- DVBASPDC ;;1855839
- DVBASTAT ;;1731141
- DVBAUTIL ;;17077948
- DVBAUTL1 ;;671413
- DVBAUTL2 ;;11376979
- DVBAUTL3 ;;5126380
- DVBAUTL4 ;;1068079
- DVBAUTL5 ;;2400662
- DVBAUTL6 ;;1039958
- DVBAUTL7 ;;4947961
- DVBAUTL8 ;;2009228
- DVBAUTLH ;;1322144
- DVBAVDPT ;;6199074
- DVBCAACK ;;10697058
- DVBCADCK ;;16662513
- DVBCADE1 ;;12482920
- DVBCADE2 ;;12838391
- DVBCADEX ;;5964579
- DVBCADR ;;5562753
- DVBCAMC1 ;;16773745
- DVBCAMCK ;;24825901
- DVBCAMI1 ;;5901817
- DVBCAMI2 ;;12729591
- DVBCAMI3 ;;3088709
- DVBCAMIS ;;5835381
- DVBCAMR1 ;;2817493
- DVBCAMR2 ;;11670627
- DVBCAMRO ;;5648976
- DVBCAOC1 ;;15597069
- DVBCAOCK ;;16213615
- DVBCARC1 ;;11119260
- DVBCARC2 ;;3468613
- DVBCARCK ;;5894420
- DVBCATC1 ;;10433901
- DVBCATCK ;;3242113
- DVBCBNCK ;;9472567
- DVBCBRCK ;;9688091
- DVBCBUL1 ;;6490294
- DVBCBULL ;;11261928
- DVBCCECK ;;5348778
- DVBCCHKR ;;11985936
- DVBCCNC1 ;;10329224
- DVBCCNCL ;;14608393
- DVBCCNNS ;;6465570
- DVBCCRCK ;;10796464
- DVBCCUCK ;;9102724
- DVBCCYCK ;;8998698
- DVBCDACK ;;10981371
- DVBCDBCK ;;11708644
- DVBCDECK ;;5200660
- DVBCDHCK ;;9236029
- DVBCDICK ;;9010550
- DVBCDMCK ;;10183017
- DVBCDNCK ;;7857444
- DVBCEDCK ;;12782887
- DVBCEDIT ;;13356686
- DVBCEEXM ;;6444590
- DVBCENCK ;;11064281
- DVBCENQ ;;3137584
- DVBCENQ1 ;;17735634
- DVBCENQ2 ;;5360800
- DVBCESCK ;;8586267
- DVBCEXML ;;5745207
- DVBCFEE ;;4823842
- DVBCFSCK ;;8400570
- DVBCFTCK ;;11486991
- DVBCGECK ;;5329066
- DVBCGMC1 ;;11580608
- DVBCGMCK ;;19361685
- DVBCGNCK ;;16937132
- DVBCGOCK ;;14320767
- DVBCGSCK ;;5315275
- DVBCHACK ;;10806048
- DVBCHDCK ;;8836870
- DVBCHECK ;;5877095
- DVBCHLCK ;;15488784
- DVBCHLOR ;;984544
- DVBCHLQ ;;6640186
- DVBCHLR ;;11476557
- DVBCHLUT ;;3110204
- DVBCHMC1 ;;2272934
- DVBCHMCK ;;9509200
- DVBCHNCK ;;13792552
- DVBCHPCK ;;11448190
- DVBCHS0 ;;1790541
- DVBCHS1 ;;1496798
- DVBCHS2 ;;2433797
- DVBCHTCK ;;8302169
- DVBCHYCK ;;7996254
- DVBCIRP1 ;;11482024
- DVBCIRPT ;;4499283
- DVBCIUT1 ;;2146997
- DVBCIUTL ;;5639159
- DVBCJNCK ;;15001703
- DVBCLABR ;;4708883
- DVBCLKT2 ;;7808623
- DVBCLKTL ;;6998431
- DVBCLMHD ;;57210
- DVBCLMU2 ;;314744
- DVBCLMU5 ;;1478779
- DVBCLOG ;;11143383
- DVBCLOG2 ;;2684669
- DVBCLOGE ;;10765565
- DVBCLTR ;;2127008
- DVBCLTR2 ;;3092277
- DVBCLURN ;;1306910
- DVBCMDCK ;;9944806
- DVBCMECK ;;5385050
- DVBCMKL2 ;;9133939
- DVBCMKLK ;;6462243
- DVBCMLCK ;;9262268
- DVBCMMCK ;;10979579
- DVBCMNCK ;;14329368
- DVBCMOCK ;;5723689
- DVBCMSCK ;;10520804
- DVBCMTCK ;;9589187
- DVBCNHCK ;;8951617
- DVBCNICK ;;8854235
- DVBCNKCK ;;10172030
- DVBCNLCK ;;12481864
- DVBCNNCK ;;5288860
- DVBCNPCK ;;9891090
- DVBCNSCK ;;9764945
- DVBCNTCK ;;10392687
- DVBCNTSC ;;9266168
- DVBCNUCK ;;5317272
- DVBCOECK ;;5356538
- DVBCPATA ;;5360197
- DVBCPDCK ;;12898016
- DVBCPECK ;;5210166
- DVBCPG1 ;;511338
- DVBCPG2 ;;814756
