- 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 ---[H[J[2J[HDVBANTE1 2344 printed Feb 18, 2025@23:07:46 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