DVBANTE0.m

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 ---DVBANTE0   3787     printed  Apr 09, 2024@20:50:27                                                                                                                                                                                                    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