DVBANTE1.m

DVBANTE1 ;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")

 ;

 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 ;;

DVBCPGC ;;3629785

DVBCPGD ;;11420689

DVBCPGD1 ;;572906

DVBCPGH ;;3373772

DVBCPGL ;;1850746

DVBCPGR ;;9240313

DVBCPGR2 ;;5229832

DVBCPGU ;;203249

DVBCPICK ;;13939469

DVBCPNCK ;;10044404

DVBCPND1 ;;16899646

DVBCPNDR ;;16810308

DVBCPRCK ;;9547206

DVBCPRN1 ;;13330130

DVBCPRNT ;;10116611

DVBCPTCK ;;11835787

DVBCPTS1 ;;9638269

DVBCPUCK ;;8892327

DVBCPURG ;;2431903

DVBCPWC1 ;;22513970

DVBCPWC2 ;;8815419

DVBCPWC3 ;;4489767

DVBCPWC4 ;;7046962

DVBCPWCK ;;12425723

DVBCPYCK ;;8272715

DVBCRACK ;;8048704

DVBCREDT ;;10184147

DVBCRELS ;;11302743

DVBCREQ1 ;;9905931

DVBCREQ2 ;;8627439

DVBCREQ3 ;;2872183

DVBCREQM ;;3068313

DVBCREQP ;;13619707

DVBCRLST ;;5612320

DVBCRMCK ;;10472657

DVBCROP1 ;;2112790

DVBCROPN ;;13604559

DVBCRPON ;;10309052

DVBCRPR1 ;;8547301

DVBCRPRT ;;9132762

DVBCSCCK ;;14602586

DVBCSCHD ;;14356477

DVBCSDEV ;;742431

DVBCSECK ;;5042896

DVBCSKCK ;;16733993

DVBCSMCK ;;9642868

DVBCSPCK ;;12224238

DVBCSRCK ;;10038108

DVBCSTCK ;;9443868

DVBCSYCK ;;11659947

DVBCTRN ;;7222901

DVBCTRN1 ;;2117428

DVBCTRNN ;;1315735

DVBCTSCK ;;9953638

DVBCTTCK ;;8903016

DVBCULAP ;;6951849

DVBCUTA1 ;;7784264

DVBCUTA2 ;;7425828

DVBCUTA3 ;;6525329

DVBCUTA4 ;;1930083

DVBCUTIL ;;17784731

DVBCUTL2 ;;16484712

DVBCUTL3 ;;14291313

DVBCUTL4 ;;6410758

DVBCUTL5 ;;4812185

DVBCUTL6 ;;5521630

DVBCUTL7 ;;4066959

DVBCUTL8 ;;5560283

DVBCVSC1 ;;8410639

DVBCVSC2 ;;3179214

DVBCVSCK ;;8269704

DVBCVW2 ;;3362992

DVBCXFRA ;;14804015

DVBCXFRB ;;10012404

DVBCXFRC ;;14794975

DVBCXFRD ;;5143029

DVBCXFRE ;;14434836

DVBCXFRS ;;6119351

DVBCXSCK ;;10643105

DVBCXUTL ;;1017429

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBANTE1   2344     printed  Apr 09, 2024@20:46:40                                                                                                                                                                                                    Page 2

DVBANTE1  ;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       ;

 +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       ;;

DVBCPGC   ;;3629785

DVBCPGD   ;;11420689

DVBCPGD1  ;;572906

DVBCPGH   ;;3373772

DVBCPGL   ;;1850746

DVBCPGR   ;;9240313

DVBCPGR2  ;;5229832

DVBCPGU   ;;203249

DVBCPICK  ;;13939469

DVBCPNCK  ;;10044404

DVBCPND1  ;;16899646

DVBCPNDR  ;;16810308

DVBCPRCK  ;;9547206

DVBCPRN1  ;;13330130

DVBCPRNT  ;;10116611

DVBCPTCK  ;;11835787

DVBCPTS1  ;;9638269

DVBCPUCK  ;;8892327

DVBCPURG  ;;2431903

DVBCPWC1  ;;22513970

DVBCPWC2  ;;8815419

DVBCPWC3  ;;4489767

DVBCPWC4  ;;7046962

DVBCPWCK  ;;12425723

DVBCPYCK  ;;8272715

DVBCRACK  ;;8048704

DVBCREDT  ;;10184147

DVBCRELS  ;;11302743

DVBCREQ1  ;;9905931

DVBCREQ2  ;;8627439

DVBCREQ3  ;;2872183

DVBCREQM  ;;3068313

DVBCREQP  ;;13619707

DVBCRLST  ;;5612320

DVBCRMCK  ;;10472657

DVBCROP1  ;;2112790

DVBCROPN  ;;13604559

DVBCRPON  ;;10309052

DVBCRPR1  ;;8547301

DVBCRPRT  ;;9132762

DVBCSCCK  ;;14602586

DVBCSCHD  ;;14356477

DVBCSDEV  ;;742431

DVBCSECK  ;;5042896

DVBCSKCK  ;;16733993

DVBCSMCK  ;;9642868

DVBCSPCK  ;;12224238

DVBCSRCK  ;;10038108

DVBCSTCK  ;;9443868

DVBCSYCK  ;;11659947

DVBCTRN   ;;7222901

DVBCTRN1  ;;2117428

DVBCTRNN  ;;1315735

DVBCTSCK  ;;9953638

DVBCTTCK  ;;8903016

DVBCULAP  ;;6951849

DVBCUTA1  ;;7784264

DVBCUTA2  ;;7425828

DVBCUTA3  ;;6525329

DVBCUTA4  ;;1930083

DVBCUTIL  ;;17784731

DVBCUTL2  ;;16484712

DVBCUTL3  ;;14291313

DVBCUTL4  ;;6410758

DVBCUTL5  ;;4812185

DVBCUTL6  ;;5521630

DVBCUTL7  ;;4066959

DVBCUTL8  ;;5560283

DVBCVSC1  ;;8410639

DVBCVSC2  ;;3179214

DVBCVSCK  ;;8269704

DVBCVW2   ;;3362992

DVBCXFRA  ;;14804015

DVBCXFRB  ;;10012404

DVBCXFRC  ;;14794975

DVBCXFRD  ;;5143029

DVBCXFRE  ;;14434836

DVBCXFRS  ;;6119351

DVBCXSCK  ;;10643105

DVBCXUTL  ;;1017429